/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_8 / issue_11 / text_procs / TextPROCs

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 07 eb 32 37 0d | 00 14 17 66 69 6c 65 25 |.....27.|...file%|
|00000010| 3d ae 28 22 74 65 78 74 | 66 69 6c 65 22 29 0d 00 |=.("text|file")..|
|00000020| 1e 0b d9 23 66 69 6c 65 | 25 0d 00 28 1a 2a 53 65 |...#file|%..(.*Se|
|00000030| 74 54 79 70 65 20 74 65 | 78 74 66 69 6c 65 20 54 |tType te|xtfile T|
|00000040| 65 78 74 0d 00 32 2b f2 | 66 69 6c 65 5f 61 6e 64 |ext..2+.|file_and|
|00000050| 5f 63 65 6e 74 72 65 70 | 72 69 6e 74 28 22 54 65 |_centrep|rint("Te|
|00000060| 78 74 20 46 69 6c 65 20 | 54 65 73 74 22 29 0d 00 |xt File |Test")..|
|00000070| 3c 17 f2 66 69 6c 65 5f | 61 6e 64 5f 62 6c 61 6e |<..file_|and_blan|
|00000080| 6b 6c 69 6e 65 0d 00 46 | 33 f2 66 69 6c 65 5f 61 |kline..F|3.file_a|
|00000090| 6e 64 5f 70 72 69 6e 74 | 74 61 62 28 31 30 2c 22 |nd_print|tab(10,"|
|000000a0| 46 69 72 73 74 20 4c 69 | 6e 65 20 61 74 20 54 41 |First Li|ne at TA|
|000000b0| 42 20 31 30 22 2c b9 29 | 0d 00 50 3f f2 66 69 6c |B 10",.)|..P?.fil|
|000000c0| 65 5f 61 6e 64 5f 70 72 | 69 6e 74 74 61 62 28 31 |e_and_pr|inttab(1|
|000000d0| 30 2c 22 53 65 63 6f 6e | 64 20 4c 69 6e 65 20 61 |0,"Secon|d Line a|
|000000e0| 74 20 54 41 42 20 31 30 | 2c 20 62 75 74 20 68 65 |t TAB 10|, but he|
|000000f0| 6c 64 20 22 2c a3 29 0d | 00 5a 36 f2 66 69 6c 65 |ld ",.).|.Z6.file|
|00000100| 5f 61 6e 64 5f 70 72 69 | 6e 74 74 61 62 28 35 30 |_and_pri|nttab(50|
|00000110| 2c 22 74 6f 20 61 77 61 | 69 74 20 74 68 69 73 20 |,"to awa|it this |
|00000120| 61 74 20 54 41 42 20 35 | 30 22 2c b9 29 0d 00 64 |at TAB 5|0",.)..d|
|00000130| 05 e0 0d 00 6e 04 0d 00 | 78 2d f4 2a 2a 2a 2a 2a |....n...|x-.*****|
|00000140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000160| 2a 2a 2a 0d 00 82 04 0d | 00 8c 22 dd 20 f2 74 65 |***.....|..". .te|
|00000170| 78 74 66 69 6c 65 28 74 | 65 78 74 6c 69 6e 65 24 |xtfile(t|extline$|
|00000180| 2c 72 65 74 75 72 6e 25 | 29 0d 00 96 27 f4 2a 2a |,return%|)...'.**|
|00000190| 20 27 72 65 74 75 72 6e | 25 27 20 69 73 20 54 52 | 'return|%' is TR|
|000001a0| 55 45 2f 46 41 4c 53 45 | 20 66 6c 61 67 20 2a 2a |UE/FALSE| flag **|
|000001b0| 0d 00 a0 41 f4 2a 2a 20 | 74 6f 20 74 65 6c 6c 20 |...A.** |to tell |
|000001c0| 42 50 55 54 23 20 74 6f | 20 6d 61 6b 65 20 3c 52 |BPUT# to| make <R|
|000001d0| 45 54 55 52 4e 3e 20 61 | 63 74 69 6f 6e 20 61 66 |ETURN> a|ction af|
|000001e0| 74 65 72 20 74 65 78 74 | 20 6f 72 20 6e 6f 74 20 |ter text| or not |
|000001f0| 2a 0d 00 aa 17 66 69 6c | 65 25 3d ad 28 22 74 65 |*....fil|e%=.("te|
|00000200| 78 74 66 69 6c 65 22 29 | 0d 00 b4 04 0d 00 be 3a |xtfile")|.......:|
|00000210| f4 2a 2a 20 50 75 74 20 | 70 6f 69 6e 74 65 72 20 |.** Put |pointer |
|00000220| 74 6f 20 65 6e 64 20 6f | 66 20 66 69 6c 65 20 72 |to end o|f file r|
|00000230| 65 61 64 79 20 66 6f 72 | 20 6d 6f 72 65 20 74 65 |eady for| more te|
|00000240| 78 74 2e 20 2a 2a 0d 00 | c8 13 cf 23 66 69 6c 65 |xt. **..|...#file|
|00000250| 25 3d a2 23 66 69 6c 65 | 25 0d 00 d2 04 0d 00 dc |%=.#file|%.......|
|00000260| 0f e7 20 72 65 74 75 72 | 6e 25 20 8c 0d 00 e6 19 |.. retur|n% .....|
|00000270| 20 20 20 20 d5 23 66 69 | 6c 65 25 2c 74 65 78 74 |    .#fi|le%,text|
|00000280| 6c 69 6e 65 24 0d 00 f0 | 05 cc 0d 00 fa 1a 20 20 |line$...|......  |
|00000290| 20 20 d5 23 66 69 6c 65 | 25 2c 74 65 78 74 6c 69 |  .#file|%,textli|
|000002a0| 6e 65 24 3b 0d 01 04 05 | cd 0d 01 0e 0b d9 23 66 |ne$;....|......#f|
|000002b0| 69 6c 65 25 0d 01 18 05 | e1 0d 01 22 04 0d 01 2c |ile%....|..."...,|
|000002c0| 23 f4 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |#.------|--------|
|000002d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002e0| 0d 01 36 04 0d 01 40 24 | dd 20 f2 66 69 6c 65 5f |..6...@$|. .file_|
|000002f0| 61 6e 64 5f 63 65 6e 74 | 72 65 70 72 69 6e 74 28 |and_cent|reprint(|
|00000300| 73 74 72 69 6e 67 24 29 | 0d 01 4a 2d f4 2a 2a 20 |string$)|..J-.** |
|00000310| 50 72 69 6e 74 73 20 61 | 20 73 74 72 69 6e 67 20 |Prints a| string |
|00000320| 63 65 6e 74 72 65 64 20 | 6f 6e 20 73 63 72 65 65 |centred |on scree|
|00000330| 6e 2c 20 2a 2a 0d 01 54 | 3c f4 2a 2a 20 61 6e 64 |n, **..T|<.** and|
|00000340| 20 70 75 74 73 20 61 20 | 63 6f 72 72 65 73 70 6f | puts a |correspo|
|00000350| 6e 64 69 6e 67 20 73 74 | 72 69 6e 67 20 69 6e 74 |nding st|ring int|
|00000360| 6f 20 61 20 74 65 78 74 | 20 66 69 6c 65 2e 20 2a |o a text| file. *|
|00000370| 2a 0d 01 5e 04 0d 01 68 | 17 ea 20 74 61 62 25 2c |*..^...h|.. tab%,|
|00000380| 73 63 72 65 65 6e 77 69 | 64 74 68 25 0d 01 72 35 |screenwi|dth%..r5|
|00000390| f4 2a 2a 20 46 69 72 73 | 74 20 66 69 6e 64 20 73 |.** Firs|t find s|
|000003a0| 63 72 65 65 6e 77 69 64 | 74 68 20 69 6e 20 4d 6f |creenwid|th in Mo|
|000003b0| 64 65 20 62 65 69 6e 67 | 20 75 73 65 64 2c 20 2a |de being| used, *|
|000003c0| 2a 0d 01 7c 32 c8 99 20 | 22 4f 53 5f 52 65 61 64 |*..|2.. |"OS_Read|
|000003d0| 4d 6f 64 65 56 61 72 69 | 61 62 6c 65 22 2c 2d 31 |ModeVari|able",-1|
|000003e0| 2c 31 20 b8 20 2c 2c 73 | 63 72 65 65 6e 77 69 64 |,1 . ,,s|creenwid|
|000003f0| 74 68 25 0d 01 86 04 0d | 01 90 2a 74 61 62 25 3d |th%.....|..*tab%=|
|00000400| 28 28 73 63 72 65 65 6e | 77 69 64 74 68 25 2b 31 |((screen|width%+1|
|00000410| 29 2d a9 28 73 74 72 69 | 6e 67 24 29 29 20 81 20 |)-.(stri|ng$)) . |
|00000420| 32 0d 01 9a 24 f1 20 8a | 74 61 62 25 29 73 74 72 |2...$. .|tab%)str|
|00000430| 69 6e 67 24 3a f4 2a 2a | 20 54 6f 20 73 63 72 65 |ing$:.**| To scre|
|00000440| 65 6e 20 2a 2a 0d 01 a4 | 04 0d 01 ae 1c 6c 69 6e |en **...|.....lin|
|00000450| 65 24 3d c4 74 61 62 25 | 2c 22 20 22 29 2b 73 74 |e$=.tab%|," ")+st|
|00000460| 72 69 6e 67 24 0d 01 b8 | 3d f2 74 65 78 74 66 69 |ring$...|=.textfi|
|00000470| 6c 65 28 6c 69 6e 65 24 | 2c b9 29 3a f4 2a 2a 43 |le(line$|,.):.**C|
|00000480| 6f 72 72 65 73 70 6f 6e | 64 69 6e 67 20 73 74 72 |orrespon|ding str|
|00000490| 69 6e 67 20 74 6f 20 74 | 65 78 74 20 66 69 6c 65 |ing to t|ext file|
|000004a0| 20 2a 0d 01 c2 05 e1 0d | 01 cc 04 0d 01 d6 23 f4 | *......|......#.|
|000004b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 01 |--------|------..|
|000004d0| e0 04 0d 01 ea 19 dd 20 | f2 66 69 6c 65 5f 61 6e |....... |.file_an|
|000004e0| 64 5f 62 6c 61 6e 6b 6c | 69 6e 65 0d 01 f4 2a f4 |d_blankl|ine...*.|
|000004f0| 2a 2a 20 50 72 69 6e 74 | 73 20 61 6e 20 65 6d 70 |** Print|s an emp|
|00000500| 74 79 20 6c 69 6e 65 20 | 6f 6e 20 73 63 72 65 65 |ty line |on scree|
|00000510| 6e 2c 20 2a 2a 0d 01 fe | 3c f4 2a 2a 20 61 6e 64 |n, **...|<.** and|
|00000520| 20 70 75 74 73 20 61 20 | 63 6f 72 72 65 73 70 6f | puts a |correspo|
|00000530| 6e 64 69 6e 67 20 73 74 | 72 69 6e 67 20 69 6e 74 |nding st|ring int|
|00000540| 6f 20 61 20 74 65 78 74 | 20 66 69 6c 65 2e 20 2a |o a text| file. *|
|00000550| 2a 0d 02 08 04 0d 02 12 | 16 f1 3a f4 2a 2a 20 54 |*.......|..:.** T|
|00000560| 6f 20 73 63 72 65 65 6e | 20 2a 2a 0d 02 1c 04 0d |o screen| **.....|
|00000570| 02 26 0c 6c 69 6e 65 24 | 3d 22 22 0d 02 30 3d f2 |.&.line$|=""..0=.|
|00000580| 74 65 78 74 66 69 6c 65 | 28 6c 69 6e 65 24 2c b9 |textfile|(line$,.|
|00000590| 29 3a f4 2a 2a 43 6f 72 | 72 65 73 70 6f 6e 64 69 |):.**Cor|respondi|
|000005a0| 6e 67 20 73 74 72 69 6e | 67 20 74 6f 20 74 65 78 |ng strin|g to tex|
|000005b0| 74 20 66 69 6c 65 20 2a | 0d 02 3a 05 e1 0d 02 44 |t file *|..:....D|
|000005c0| 04 0d 02 4e 23 f4 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...N#.--|--------|
|000005d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005e0| 2d 2d 2d 2d 0d 02 58 04 | 0d 02 62 2c dd 20 f2 66 |----..X.|..b,. .f|
|000005f0| 69 6c 65 5f 61 6e 64 5f | 70 72 69 6e 74 74 61 62 |ile_and_|printtab|
|00000600| 28 74 61 62 25 2c 73 74 | 72 69 6e 67 24 2c 63 72 |(tab%,st|ring$,cr|
|00000610| 6c 66 25 29 0d 02 6c 43 | f4 2a 2a 20 50 72 69 6e |lf%)..lC|.** Prin|
|00000620| 74 73 20 61 20 73 74 72 | 69 6e 67 20 6f 6e 20 73 |ts a str|ing on s|
|00000630| 63 72 65 65 6e 20 61 74 | 20 74 68 65 20 64 65 73 |creen at| the des|
|00000640| 69 67 6e 61 74 65 64 20 | 74 61 62 20 70 6f 73 69 |ignated |tab posi|
|00000650| 74 69 6f 6e 2c 2a 2a 0d | 02 76 3e f4 2a 2a 20 61 |tion,**.|.v>.** a|
|00000660| 6e 64 20 72 65 74 75 72 | 6e 73 20 61 20 63 6f 72 |nd retur|ns a cor|
|00000670| 72 65 73 70 6f 6e 64 69 | 6e 67 20 73 74 72 69 6e |respondi|ng strin|
|00000680| 67 20 66 6f 72 20 61 20 | 74 65 78 74 20 66 69 6c |g for a |text fil|
|00000690| 65 2e 20 2a 2a 0d 02 80 | 42 f4 2a 2a 20 27 63 72 |e. **...|B.** 'cr|
|000006a0| 6c 66 25 27 20 69 73 20 | 54 52 55 45 2f 46 41 4c |lf%' is |TRUE/FAL|
|000006b0| 53 45 20 66 6c 61 67 20 | 74 6f 20 64 65 74 65 72 |SE flag |to deter|
|000006c0| 6d 69 6e 65 20 69 66 20 | 73 63 72 65 65 6e 20 70 |mine if |screen p|
|000006d0| 72 69 6e 74 69 6e 67 0d | 02 8a 40 f4 2a 2a 20 69 |rinting.|..@.** i|
|000006e0| 73 20 74 6f 20 65 6e 64 | 20 77 69 74 68 20 3c 52 |s to end| with <R|
|000006f0| 65 74 75 72 6e 3e 20 6f | 72 20 6e 6f 74 20 28 69 |eturn> o|r not (i|
|00000700| 2e 65 2e 20 73 65 6d 69 | 2d 63 6f 6c 6f 6e 20 6f |.e. semi|-colon o|
|00000710| 72 20 6e 6f 74 29 2e 0d | 02 94 04 0d 02 9e 0f 67 |r not)..|.......g|
|00000720| 61 70 25 3d 74 61 62 25 | 2d b1 0d 02 a8 43 f4 2a |ap%=tab%|-....C.*|
|00000730| 2a 20 27 67 61 70 25 27 | 20 6e 65 65 64 73 20 74 |* 'gap%'| needs t|
|00000740| 6f 20 62 65 20 63 61 6c | 63 75 6c 61 74 65 64 20 |o be cal|culated |
|00000750| 62 65 66 6f 72 65 20 70 | 72 69 6e 74 69 6e 67 20 |before p|rinting |
|00000760| 74 6f 20 73 63 72 65 65 | 6e 2e 20 2a 2a 0d 02 b2 |to scree|n. **...|
|00000770| 04 0d 02 bc 0d e7 20 63 | 72 6c 66 25 20 8c 0d 02 |...... c|rlf% ...|
|00000780| c6 17 20 20 20 20 f1 20 | 8a 74 61 62 25 29 73 74 |..    . |.tab%)st|
|00000790| 72 69 6e 67 24 0d 02 d0 | 05 cc 0d 02 da 18 20 20 |ring$...|......  |
|000007a0| 20 20 f1 20 8a 74 61 62 | 25 29 73 74 72 69 6e 67 |  . .tab|%)string|
|000007b0| 24 3b 0d 02 e4 05 cd 0d | 02 ee 04 0d 02 f8 1c 6c |$;......|.......l|
|000007c0| 69 6e 65 24 3d c4 67 61 | 70 25 2c 22 20 22 29 2b |ine$=.ga|p%," ")+|
|000007d0| 73 74 72 69 6e 67 24 0d | 03 02 41 f2 74 65 78 74 |string$.|..A.text|
|000007e0| 66 69 6c 65 28 6c 69 6e | 65 24 2c 63 72 6c 66 25 |file(lin|e$,crlf%|
|000007f0| 29 3a f4 2a 2a 43 6f 72 | 72 65 73 70 6f 6e 64 69 |):.**Cor|respondi|
|00000800| 6e 67 20 73 74 72 69 6e | 67 20 74 6f 20 74 65 78 |ng strin|g to tex|
|00000810| 74 20 66 69 6c 65 20 2a | 0d 03 0c 05 e1 0d 03 16 |t file *|........|
|00000820| 05 20 0d ff             |                         |. ..    |        |
+--------+-------------------------+-------------------------+--------+--------+